home *** CD-ROM | disk | FTP | other *** search
/ Windows News 1997 February / Windows News CD #1 - Fev 97.iso / share / imprim / imprim.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-01-22  |  2.5 KB  |  93 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Impression du dossier"
  4.    ClientHeight    =   4308
  5.    ClientLeft      =   1380
  6.    ClientTop       =   1356
  7.    ClientWidth     =   3372
  8.    Height          =   4692
  9.    Icon            =   "imprim.frx":0000
  10.    Left            =   1332
  11.    LinkTopic       =   "Form1"
  12.    MouseIcon       =   "imprim.frx":0442
  13.    ScaleHeight     =   4308
  14.    ScaleWidth      =   3372
  15.    Top             =   1020
  16.    Width           =   3468
  17.    Begin VB.DriveListBox Lecteur 
  18.       Height          =   288
  19.       Left            =   120
  20.       TabIndex        =   4
  21.       Top             =   120
  22.       Width           =   3132
  23.    End
  24.    Begin VB.CommandButton Annuler 
  25.       Cancel          =   -1  'True
  26.       Caption         =   "Annuler"
  27.       Height          =   492
  28.       Left            =   120
  29.       MouseIcon       =   "imprim.frx":0884
  30.       MousePointer    =   99  'Custom
  31.       TabIndex        =   3
  32.       Top             =   3720
  33.       Width           =   1212
  34.    End
  35.    Begin VB.CommandButton imprimer 
  36.       BackColor       =   &H0000FFFF&
  37.       Caption         =   "Imprimer"
  38.       Default         =   -1  'True
  39.       Height          =   492
  40.       Left            =   1440
  41.       MouseIcon       =   "imprim.frx":0CC6
  42.       MousePointer    =   99  'Custom
  43.       TabIndex        =   2
  44.       Top             =   3720
  45.       Width           =   1812
  46.    End
  47.    Begin VB.FileListBox Fichiers 
  48.       Height          =   1392
  49.       Left            =   120
  50.       TabIndex        =   1
  51.       Top             =   2160
  52.       Width           =   3132
  53.    End
  54.    Begin VB.DirListBox R
  55. pertoires 
  56.       Height          =   1536
  57.       Left            =   120
  58.       TabIndex        =   0
  59.       Top             =   480
  60.       Width           =   3132
  61.    End
  62. Attribute VB_Name = "Form1"
  63. Attribute VB_Creatable = False
  64. Attribute VB_Exposed = False
  65. Private Sub Command1_Click()
  66. rep$ = File1.Path
  67. rep$ = "command.com /c dir " + rep$
  68. rep$ = rep$ + ">lpt1"
  69. x = Shell(rep$, 6)
  70. End Sub
  71. Private Sub Annuler_Click()
  72. Unload Form1
  73. End Sub
  74. Private Sub Dir1_Change()
  75. File1.Path = Dir1.Path
  76. End Sub
  77. Private Sub Fichiers_Click()
  78. End Sub
  79. Private Sub imprimer_Click()
  80. rep$ = Fichiers.Path
  81. rep$ = "command.com /c dir " + rep$
  82. rep$ = rep$ + ">lpt1"
  83. x = Shell(rep$, 0)
  84. End Sub
  85. Private Sub Lecteur_Change()
  86. pertoires.Path = Lecteur.Drive
  87. End Sub
  88. Private Sub R
  89. pertoires_Change()
  90. Fichiers.Path = R
  91. pertoires.Path
  92. End Sub
  93.